Jan-Philipp Kolb
22 Februar 2017
http://wiki.openstreetmap.org/wiki/Overpass_API
url <- "https://raw.githubusercontent.com/Japhilko/
GeoData/master/2015/data/CampSites_Germany.csv"CampSites <- read.csv(url)| X | name | tourism | website |
|---|---|---|---|
| 1 | Campingplatz Winkelbachtal | camp_site | http://www.gruibingen.de/campingplatz.html |
| 2 | Radler-Zeltplatz | camp_site | NA |
| 3 | Campingplatz des Naturfreundehauses | camp_site | NA |
| 4 | Campingplatz Am Aichstruter Stausee | camp_site | NA |
| 5 | NA | camp_site | NA |
| 6 | Kandern | camp_site | NA |
| 7 | Campingplatz Baiersbronn-Obertal | camp_site | NA |
| 8 | Campingplatz Schwabenmühle | camp_site | NA |
magrittr - für den Pipe Operator in R:
library("magrittr")leaflet - um interaktive Karten mit der JavaScript Bibliothek ‘Leaflet’ zu erzeugen
library("leaflet")leaflet()%>%
addTiles()Hallo Leaflet
leaflet() %>%
addTiles() %>%
addMarkers(lng=8.456597, lat=49.48738,
popup="Wo wir sind")m <- leaflet() %>%
addTiles() %>%
addMarkers(lng=CampSites$lon,
lat=CampSites$lat,
popup=CampSites$name)
mm %>% addProviderTiles("Stamen.Toner")Eine Stamen Karte als Hintergrund
m %>% addProviderTiles("CartoDB.Positron")CartoDB als Hintergrund
popupInfo <- paste(CampSites$name,"\n",CampSites$website)m <- leaflet() %>%
addTiles() %>% # Add default OpenStreetMap map tiles
addMarkers(lng=CampSites$lon,
lat=CampSites$lat,
popup=popupInfo)
mDas Ergebnis ist hier:
Campingplätze in Deutschland
Camping Mannheim
Ich hab die Ergebnisse hochgeladen:
Publizieren auf Rpubs
url <- "https://raw.githubusercontent.com/Japhilko/
GeoData/master/2015/data/whcSites.csv"
whcSites <- read.csv(url) m <- leaflet() %>%
addTiles() %>% # Add default OpenStreetMap map tiles
addMarkers(lng=whcSites$lon,
lat=whcSites$lat,
popup=whcSites$name_en)
mWeltkulturerbestätten
whcSites$color <- "red"
whcSites$color[whcSites$category=="Cultural"] <- "blue"
whcSites$color[whcSites$category=="Mixed"] <- "orange"m1 <- leaflet() %>%
addTiles() %>%
addCircles(lng=whcSites$lon,
lat=whcSites$lat,
popup=whcSites$name_en,
color=whcSites$color)
m1Karte Weltkulturerbe
Als Website speichern